#!/usr/bin/perl
#
# Extract data for plotting from single host scenario debug output
#

while (<>) {
    if (/Macroscopic model update/) {
	my ($t, undef, $i) = /t: ((\d|\.)+)\s.*?i=((\d|\.)+)/;
	print "$t  $i\n";
    }
}
